LOGIC Apps/Logic-APPLE_II_APPS.iso/mac/LOGIC Apple II 5.25" Library - DOS Part 2/DOS028.dsk/A TRILLION STORIES.int

Text File | 2012-02-16 | 12KB | 572 lines

5 TIME=10:GOTO 20
10 FOR N=1 TO 500:NEXT N:Q= PEEK (-16384):IF Q=155 THEN 9060:RETURN
20 GOSUB 1800
50 TEXT :CALL -936
60 RY=1
200 DIM A$(25),B$(20),C$(25)
210 DIM D$(30),E$(40),F$(40)
220 DIM G$(40),H$(40),J$(40)
360 CALL -936
370 VTAB 2
400 REM  FIRST PART
402 TAB (4):PRINT "THIS IS STORY NO. ";RY
403 PRINT
405 PRINT "  ONCE UPON A TIME......":PRINT
410 A= RND (25)
420 AA=A*2:AG=450+AA
430 GOSUB AG
435 GOSUB TIME
440 PRINT A$;" AND "
441 Z= RND (20):IF Z=A THEN 441
442 ZZ=Z*2:ZG=450+ZZ
443 GOSUB ZG
444 PRINT A$
445 GOTO 500
450 A$="ALL THE GUYS AT APPLE CO"
451 RETURN
452 A$="ALL THE GALS AT APPLE CO."
453 RETURN
454 A$="DANIEL LAMBERT"
455 RETURN
456 A$="TINKERBELL"
457 RETURN
458 A$="JOHNNY CARSON"
459 RETURN
460 A$="GARY SHANNON"
461 RETURN
462 A$="<CTRL-@><CTRL-@>WONDER WOMAN"
463 RETURN
464 A$="FLASH GORDON"
465 RETURN
466 A$="PORKY PIG"
467 RETURN
468 A$=" BUGS BUNNY"
469 RETURN
470 A$="THE PINK PANTHER"
471 RETURN
472 A$="A CUTE MIDGET"
473 RETURN
474 A$="JOLLY GREEN GIANT"
475 RETURN
476 A$="DONNY & MARIE"
477 RETURN
478 A$="JIMINY CRICKET"
479 RETURN
480 A$="SANTA CLAUS"
481 RETURN
482 A$="FROSTY THE SNOWMAN"
483 RETURN
484 A$="THE FONZ"
485 RETURN
486 A$="WOODSTOCK AND SNOOPY"
487 RETURN
488 A$="R2 D2 AND 3CPO"
489 RETURN
490 A$="CHARLIE BROWN"
491 RETURN
492 A$="CHARLIE'S ANGELS"
493 RETURN
494 A$="LITTLE RED RIDING HOOD"
495 RETURN
496 A$="HUMPTY DUMPTY"
497 RETURN
498 A$="PETER PAN"
499 RETURN
500 REM  SECOND PART
510 B= RND (25)
520 BB=B*2:BG=550+BB
530 GOSUB BG
535 GOSUB TIME
540 PRINT B$;" ";
545 GOTO 600
550 B$="WERE BARFING"
551 RETURN
552 B$="WERE KICKING"
553 RETURN
554 B$="WERE SINGING"
555 RETURN
556 B$="WERE PLAYING"
557 RETURN
558 B$="WERE SHOUTING"
559 RETURN
560 B$="WERE RUNNING"
561 RETURN
562 B$="WERE FIGHTING"
563 RETURN
564 B$="WERE CRYING"
565 RETURN
566 B$="WERE READING"
567 RETURN
568 B$="WERE FARTING"
569 RETURN
570 B$="WERE SWINGING"
571 RETURN
572 B$="WERE DAYDREAMING"
573 RETURN
574 B$="WERE STRIPPING"
575 RETURN
576 B$="WERE STREAKING"
577 RETURN
578 B$="WERE SLEEPING"
579 RETURN
580 B$="WERE LAUGHING"
581 RETURN
582 B$="WERE SMELLING"
583 RETURN
584 B$="WERE GROANING"
585 RETURN
586 B$="WERE DRINKING"
587 RETURN
588 B$="WERE SAILING"
589 RETURN
590 B$="WERE CRAWLING"
591 RETURN
592 B$="WERE SMOKING"
593 RETURN
594 B$="WERE CROAKING"
595 RETURN
596 B$="WERE SNAPPING"
597 RETURN
598 B$="WERE YODELING"
599 RETURN
600 REM   THIRD  PART
610 C= RND (25)
620 CC=C*2:CG=650+CC
630 GOSUB CG
635 GOSUB TIME
640 PRINT C$
645 GOTO 700
650 C$="IN A DARK CLOSET"
651 RETURN
652 C$="IN THE TOILET"
653 RETURN
654 C$="UNDER THE BED"
655 RETURN
656 C$="ON THE ROOF"
657 RETURN
658 C$="IN THE SCHOOLYARD"
659 RETURN
660 C$="IN A SLOPPY KITCHEN"
661 RETURN
662 C$="IN A SUPER MARKET"
663 RETURN
664 C$="IN THE RUMBLE SEAT"
665 RETURN
666 C$="IN THE JUNGLE"
667 RETURN
668 C$="IN A WET TENT"
669 RETURN
670 C$="IN THE GARBAGE DISPOSAL"
671 RETURN
672 C$="IN A RESTAURANT"
673 RETURN
674 C$="UP IN A TALL TREE"
675 RETURN
676 C$="IN A HUMID HAMPER"
677 RETURN
678 C$="IN A TRASH CAN"
679 RETURN
680 C$="IN A LONG.....CAVE"
681 RETURN
682 C$="IN THE BUBBLY BATHTUB"
683 RETURN
684 C$="IN THE TRUNK"
685 RETURN
686 C$="IN A PEE WEE CABOOSE"
687 RETURN
688 C$="IN THE BASEMENT"
689 RETURN
690 C$="IN A LOCKER ROOM"
691 RETURN
692 C$="AT THE OFFICE"
693 RETURN
694 C$="IN THE PANTRY"
695 RETURN
696 C$="ON THE OCEAN"
697 RETURN
698 C$="ON A RAINY STREET"
699 RETURN
700 REM    FOURTH PART
710 D= RND (25)
720 DD=D*2:DG=750+DD
730 GOSUB DG
735 GOSUB TIME
740 PRINT D$
745 GOTO 800
750 D$="WHEN THEY MET THE TEACHER"
751 RETURN
752 D$="WHEN THEY SAW A POLICEMAN"
753 RETURN
754 D$="WHEN THEY SAW A WITCH"
755 RETURN
756 D$="WHEN A GHOST FLEW IN"
757 RETURN
758 D$="WHEN THEY SAW A MONSTER"
759 RETURN
760 D$="WHEN THEY SAW A MEAN RAT"
761 RETURN
762 D$="WHEN THEY SAW AN ELEPHANT"
763 RETURN
764 D$="WHEN THEY MET A FOXY GUY"
765 RETURN
766 D$="WHEN THEY SAW A SLIMY SNAKE"
767 RETURN
768 D$="WHEN SPIDERS CRAWLED ON THEM"
769 RETURN
770 D$="WHEN THEY SAW A ROBOT"
771 RETURN
772 D$="WHEN A MERMAID SWAM IN"
773 RETURN
774 D$="WHEN CINDERELLA RODE IN"
775 RETURN
776 D$="WHEN SUPERMAN BROKE IN"
777 RETURN
778 D$="WHEN BIGBIRD FLEW IN"
779 RETURN
780 D$="WHEN KOJAK BUSTED THRU"
781 RETURN
782 D$="WHEN THE MAILMAN RODE IN"
783 RETURN
784 D$="WHEN THEY SPOTTED A BUG"
785 RETURN
786 D$="WHEN THEY RAN INTO A DRAGONFLY"
787 RETURN
788 D$="WHEN THEY SAW SPIDERMAN"
789 RETURN
790 D$="WHEN THEY SEEN A DRUNK"
791 RETURN
792 D$="WHEN A HERD OF BUFFALO CAME IN"
793 RETURN
794 D$="WHEN THEY SAW A SEXY CHICK"
795 RETURN
796 D$="WHEN THEY SAW A BLIND HIPPO"
797 RETURN
798 D$="WHEN THEY SAW THE COLLEGE DEAN"
799 RETURN
800 REM  FIFTH PART
810 E= RND (25)
820 EE=E*2:EG=850+EE
830 GOSUB EG
835 GOSUB TIME
840 PRINT E$
847 GOTO 900
850 E$="ON A BICYCLE"
851 RETURN
852 E$="ON A BOOMERANG"
853 RETURN
854 E$="ON A VACUUM CLEANER"
855 RETURN
856 E$="ON A BROOMSTICK"
857 RETURN
858 E$="IN A PURPLE CANOE"
859 RETURN
860 E$="ON A LAWN MOWER"
861 RETURN
862 E$="IN A BABY CARRIAGE"
863 RETURN
864 E$="IN AN AIRPLANE"
865 RETURN
866 E$="IN A ROCKING CHAIR"
867 RETURN
868 E$="ON A SKATE BOARD"
869 RETURN
870 E$="ON A SURF BOARD"
871 RETURN
872 E$="IN AN AMBULANCE"
873 RETURN
874 E$="IN A SUBMARINE"
875 RETURN
876 E$="ON A CHOO-CHOO TRAIN"
877 RETURN
878 E$="ON A SCOOTER"
879 RETURN
880 E$="ON A YELLOW BALLOON"
881 RETURN
882 E$="ON A HIGH KITE"
883 RETURN
884 E$="ON A FLYING CARPET"
885 RETURN
886 E$="ON A FIRE TRUCK"
887 RETURN
888 E$="IN A FLYING SAUCER"
889 RETURN
890 E$="IN A TAXI"
891 RETURN
892 E$="IN A GREYHOUND BUS"
893 RETURN
894 E$="ON A RAFT"
895 RETURN
896 E$="ON A 3-HUMP CAMEL"
897 RETURN
898 E$="IN SANTA'S SLED"
899 RETURN
900 REM  SIXTH  PART
910 F= RND (25)
920 FF=F*2:FG=950+FF
930 GOSUB FG
935 GOSUB TIME
940 PRINT F$
945 GOTO 1000
950 F$="WHO TURNED THEM INTO PUPPETS"
951 RETURN
952 F$="WHO TOOK THEM TO JAIL..."
953 RETURN
954 F$="WHO TOOK THEM TO A CASTLE"
955 RETURN
956 F$="WHO GAVE THEM A LIFT TO A HAUNTED HOUSE"
957 RETURN
958 F$="AND DIRECTED THEM TO THE BATH ROOM"
959 RETURN
960 F$="WHO CHASED THEM INTO A DARK ROOM"
961 RETURN
962 F$="WHO FLEW THEM TO HEAVEN"
963 RETURN
964 F$="WHO SWEPT THEM OFF TO THE MOON"
965 RETURN
966 F$="WHO TOOK THEM ON A SPACE VOYAGE"
967 RETURN
968 F$="WHO TOOK THEM TO CHURCH"
969 RETURN
970 F$="WHO TOOK THEM TO AFRICA"
971 RETURN
972 F$="WHO TOOK THEM TO A WEDDING"
973 RETURN
974 F$="WHO TOOK THEM TO CHINATOWN"
975 RETURN
976 F$="WHO DRAGGED THEM TO THE DENTIST"
977 RETURN
978 F$="WHO PUSHED THEM IN A PHONE BOOTH"
979 RETURN
980 F$="WHO SHOVED THEM IN THE LAKE"
981 RETURN
982 F$="WHO TOOK THEM TO A BEACH PARTY"
983 RETURN
984 F$="WHO SENT THEM TO MARS"
985 RETURN
986 F$="WHO TOOK THEM TO A CANDY FACTORY"
987 RETURN
988 F$="WHO TOOK THEM TO A TOBACCO FARM"
989 RETURN
990 F$="WHO MAILED THEM TO TIJUANA"
991 RETURN
992 F$="WHO TRANSPORTED THEM TO A MORTUARY"
993 RETURN
994 F$="WHO SAILED THEM ACROSS TO VIETNAM"
995 RETURN
996 F$="WHO TOOK THEIR PANTYHOSE TO BED"
997 RETURN
998 F$="WHO TOOK THEM TO THE ZOO"
999 RETURN
1000 REM   SEVENTH PART
1010 G= RND (25)
1020 GG=G*2:GH=1050+GG
1030 GOSUB GH
1035 GOSUB TIME
1040 PRINT G$
1045 GOTO 1200
1050 G$="WHERE A SILLY KID WAS "
1051 RETURN
1052 G$="WHERE KIDS WERE "
1053 RETURN
1054 G$="WHERE HIPPIES WERE "
1055 RETURN
1056 G$="WHERE SOLDIERS WERE "
1057 RETURN
1058 G$="WHERE PIRATES WERE "
1059 RETURN
1060 G$="WHERE ANTS WERE "
1061 RETURN
1062 G$="WHERE DRAGONS WERE "
1063 RETURN
1064 G$="WERE EVERYONE WAS "
1065 RETURN
1066 G$="WHERE INDIANS WERE "
1067 RETURN
1068 G$="WHERE MARTIANS WERE "
1069 RETURN
1070 G$="WHERE R2-D2 AND C-3PO WERE "
1071 RETURN
1072 G$="WHERE MICKEY MOUSE WAS "
1073 RETURN
1074 G$="WHERE YOGI BEAR WAS "
1075 RETURN
1076 G$="WHERE WOLVES WERE "
1077 RETURN
1078 G$="WHERE SNOOPY WAS "
1079 RETURN
1080 G$="WHERE FAIRIES WERE "
1081 RETURN
1082 G$="WHERE NUDISTS WERE "
1083 RETURN
1084 G$="WHERE DRACULA WAS "
1085 RETURN
1086 G$="WHERE THE BORDER PATROL WERE "
1087 RETURN
1088 G$="WHEN THE BARTENDER WAS "
1089 RETURN
1090 G$="WHERE THE MAID WAS "
1091 RETURN
1092 G$="WHEN THE LAWERENCE WELK ORCHESTRA WAS "
1093 RETURN
1094 G$="WHERE THE BRADY BUNCH WAS "
1095 RETURN
1096 G$="WHERE THE U.S. MARINES WERE "
1097 RETURN
1098 G$="WHERE CAPT. KIRK & SPOCK WERE "
1099 RETURN
1100 REM
1110 PRINT :PRINT "  AND THEY LIVED HAPPILY EVER AFTER !"
1111 PRINT :PRINT :PRINT :PRINT
1115 RY=RY+1
1120 FOR N=1 TO 1200:NEXT N
1125 IF RY>100 THEN GOSUB 1600
1130 CALL -936:VTAB 2
1135 CALL -198
1150 RETURN
1200 REM EIGHT PART
1210 H= RND (25)
1220 HH=H*2:HJ=1250+HH
1230 GOSUB HJ
1235 GOSUB TIME
1240 PRINT H$;", ";
1245 GOTO 1300
1250 H$="CLOWNING"
1251 RETURN
1252 H$="PLAYING"
1253 RETURN
1254 H$="SQUARE DANCING"
1255 RETURN
1256 H$="FOOLING AROUND"
1257 RETURN
1258 H$="RIDING"
1259 RETURN
1260 H$="SKINNY-DIPPING"
1261 RETURN
1262 H$="SWIMMING"
1263 RETURN
1264 H$="STEALING"
1265 RETURN
1266 H$="KISSING"
1267 RETURN
1268 H$="BATHING"
1269 RETURN
1270 H$="SCRATCHING"
1271 RETURN
1272 H$="HUGGING"
1273 RETURN
1274 H$="EATING"
1275 RETURN
1276 H$="LOUNGING"
1277 RETURN
1278 H$="HANGING AROUND"
1279 RETURN
1280 H$="DECORATING"
1281 RETURN
1282 H$="BARKING"
1283 RETURN
1284 H$="WHISTLING"
1285 RETURN
1286 H$="ROAMING"
1287 RETURN
1288 H$="SCREECHING"
1289 RETURN
1290 H$="PEEPING"
1291 RETURN
1292 H$="SLEEPWALKING"
1293 RETURN
1294 H$="RACING"
1295 RETURN
1296 H$="GALLOPING"
1297 RETURN
1298 H$="HIPNOTIZING"
1299 RETURN
1300 REM NINTH PART
1310 J= RND (25)
1320 JJ=J*2:JK=1350+JJ
1330 GOSUB JK
1335 GOSUB TIME
1340 PRINT J$
1343 GOSUB 1100
1345 GOTO 400
1350 J$="IN THE RESTROOM"
1351 RETURN
1352 J$="WITH THEIR HULA-HOOP"
1353 RETURN
1354 J$="IN THEIR GO-CART"
1355 RETURN
1356 J$="IN THE NUDE"
1357 RETURN
1358 J$="AT A PICNIC"
1359 RETURN
1360 J$="AND HAVING A GREAT TIME"
1361 RETURN
1362 J$="ON A HAYSTACK"
1363 RETURN
1364 J$="WHILE WATCHING T.V."
1365 RETURN
1366 J$="WHILE FLOATING ON HOT AIR"
1367 RETURN
1368 J$="WHILE ATTENDING A MEETING"
1369 RETURN
1370 J$="WHILE PLAYING TENNIS"
1371 RETURN
1372 J$="WHILE SHOPPING AT SEARS"
1373 RETURN
1374 J$="ON A MOUNTAIN TOP"
1375 RETURN
1376 J$="ON AN ICEBURG"
1377 RETURN
1378 J$="ON THE DANCE FLOOR"
1379 RETURN
1380 J$="WHILE KNITTING ON THE PORCH"
1381 RETURN
1382 J$="WHILE HORSEBACK RIDING"
1383 RETURN
1384 J$="WHILE SMOOCHING IN A V.W."
1385 RETURN
1386 J$="IN AN IGLOO"
1387 RETURN
1388 J$="WHILE EATING SARDINES"
1389 RETURN
1390 J$="ON A SKATING POND"
1391 RETURN
1392 J$="ON A SKIMOBILE"
1393 RETURN
1394 J$="WHILE PUMPING A BLIMP"
1395 RETURN
1396 J$="WHILE TOWING  AN 18-WHEELER"
1397 RETURN
1398 J$="WHILE WATCHING HOBOES SKINNY-DIPPING"
1399 RETURN
1600 REM PRINTER STOP ROUTINE
1620 FOR I=1 TO 10:PRINT :NEXT I
1640 PR # 0
1660 RETURN
1700 PR # 2:END
1800 TEXT :CALL -936:VTAB 3
1802 PRINT "       3.8 THRILLION SHORT STORIES.."
1805 PRINT
1810 PRINT "TO RUN A PRINTER VERSION, REMOVE REM    FROM LINE 40 THEN TURN ON THE PRINTER"
1820 PRINT "THEN RUN 1700 THEN TYPE A CONTROL ^     THEN TYPE RUN AGAIN"
1830 PRINT "   THE PRINTER WILL PRINT 100 STORIES   THEN CONTINUE PROGRAM WITHOUT PRINTING":PRINT
1840 PRINT "   TO MAKE THIS PROGRAM INTERESTING,    LIST LINES 450 TO 499 AND CHANGE THEM"
1850 PRINT "TO THE NAMES OF THE PEOPLE IN YOUR OWN  GROUP."
1860 PRINT :PRINT "TO CHANGE PRINTING SPEED,(ON SCREEN)"
1870 PRINT "CHANGE LINE 25 TO LOWER THEN 255 FOR    FASTER SPEED 1=FASTEST 255=SLOWEST"
1880 PRINT :PRINT "RUN 9000 TO CHECK MEMORY LEFT":PRINT "     (24 K MACH.)":PRINT
1890 INPUT "TYPE AN -R- WHEN READY...",W$
1895 IF W$="R" THEN RETURN :GOTO 9999
9000 TOP= PEEK (77)*256+ PEEK (76)
9010 PRST= PEEK (203)*256+ PEEK (202)
9020 USED=TOP-PRST
9030 LEFT=24575-USED-2048
9040 PRINT "TOP=";TOP,"START=";PRST
9050 PRINT "USED=";USED,"LEFT=";LEFT
9060  POKE -16368,0
9070 PRINT
9080 PRINT "<CTRL-D>RUN DANNY"
9999 END
35346 REM  PROGRAMMED BY DANIEL A.    LAMBERT 1248 SUNNYVALE-SARATOGA         RD. SUNNYVALE CA. 94087       -408-245-4572-
32768 REM PLEASE DONT ERASE IT ! !
32767 REM PROGRAMMED BY DANIEL A.     LAMBERT 6425 RESEDA BLVD. #221   RESEDA CA. 91335  213-343-5667